Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/in-fast.sc

Text File | 1993-07-16 | 13KB | 1 lines

(dependencies (standard0 list-fns boot bci module-operators stream comp-utl bci root) names (in-fast) length 2681 nslots 19 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 120)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 26)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 50)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 24)) (5 (%%-me-local--%% . set-debug)) (3 0) (39) (8 0) (5 (%%-me-local--%% . load-module)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 25)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 115)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% errors . <condition-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 1)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% errors . <condition>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 4)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . Link-Error)) (36 (%%-big-arg-%% 2393)) (11) (4 (%%-static-%% . 6)) (5 (%%-big-arg-%% 0)) (39) (51 1) (7 (%%-me-local--%% . load-module)) (3 0) (7 (%%-me-local--%% . aa)) (3 0) (7 (%%-me-local--%% . debug)) (36 (%%-big-arg-%% 2345)) (11) (4 (%%-static-%% . 6)) (6 1) (39) (51 1) (7 (%%-me-local--%% . set-debug)) (36 (%%-big-arg-%% 1988)) (11) (4 (%%-static-%% . 6)) (6 2) (39) (51 1) (7 (%%-me-local--%% . read-fastbytes)) (36 (%%-big-arg-%% 1908)) (11) (4 (%%-static-%% . 6)) (6 3) (39) (51 4) (7 (%%-me-local--%% . add-code-vector1)) (36 (%%-big-arg-%% 1784)) (11) (4 (%%-static-%% . 6)) (6 4) (39) (51 2) (7 (%%-me-local--%% . load-dependencies)) (36 (%%-big-arg-%% 1562)) (11) (4 (%%-static-%% . 6)) (6 5) (39) (51 3) (7 (%%-me-local--%% . read-bytes)) (36 (%%-big-arg-%% 1331)) (11) (4 (%%-static-%% . 6)) (6 6) (39) (51 1) (7 (%%-me-local--%% . int2bytes)) (1 (%%-link-me-%% tables . make-table)) (1 (%%-link-me-%% boot . eq)) (3 0) (39) (62 -1) (7 (%%-me-local--%% . *name-table*)) (36 (%%-big-arg-%% 1132)) (11) (4 (%%-static-%% . 6)) (6 7) (39) (51 2) (7 (%%-me-local--%% . resolve-ref)) (36 (%%-big-arg-%% 913)) (11) (4 (%%-static-%% . 6)) (6 8) (39) (51 2) (7 (%%-me-local--%% . simple-resolve-ref)) (36 (%%-big-arg-%% 674)) (11) (4 (%%-static-%% . 6)) (6 9) (39) (51 0) (7 (%%-me-local--%% . find-loaded-modules)) (36 (%%-big-arg-%% 485)) (11) (4 (%%-static-%% . 6)) (6 10) (39) (51 1) (7 (%%-me-local--%% . make-loaded-list)) (4 (%%-static-%% . 18)) (4 (%%-me-local--%% . load-module)) (39) (3 0) (39) (9) (4 (%%-static-%% . 19)) (1 (%%-link-me-%% module-operators . dynamic-load-module)) (39) (3 0) (39) (29) (18) (7 (%%-me-local--%% . *path-list*)) (36 (%%-big-arg-%% 366)) (11) (4 (%%-static-%% . 6)) (6 11) (39) (51 1) (7 (%%-me-local--%% . load-any-module)) (36 (%%-big-arg-%% 201)) (11) (4 (%%-static-%% . 6)) (6 12) (39) (51 3) (7 (%%-me-local--%% . load-aux)) (36 (%%-big-arg-%% 42)) (11) (4 (%%-static-%% . 6)) (6 13) (39) (51 2) (7 (%%-me-local--%% . safe-path-test)) (1 (%%-link-me-%% root . set-eum-function)) (4 (%%-me-local--%% . load-any-module)) (62 1) (17 2) (3 1) (37) (22 2) (11) (20 0 0) (10) (20 0 1) (1 (%%-link-me-%% calls . simple-call/cc)) (36 (%%-big-arg-%% 14)) (12) (40 1) (14 5 2) (62 1) (37) (22 1) (10) (20 0 0) (1 (%%-link-me-%% calls . push-handler)) (36 (%%-big-arg-%% 76)) (12) (40 2) (62 1) (18) (36 (%%-big-arg-%% 28)) (1 (%%-link-me-%% comp-utl . path-open)) (12) (19 1 0) (8 4) (19 1 1) (3 0) (12) (34 -3) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% streams1 . close)) (12) (10) (33 1) (17 2) (3 1) (1 (%%-link-me-%% calls . pop-handler)) (62 0) (18) (15 3) (37) (9) (19 0 0) (15 4) (3 0) (16) (9) (13 3) (33 1) (11) (42) (32 (%%-big-arg-%% 10)) (17 4) (3 0) (37) (36 (%%-big-arg-%% 73)) (4 (%%-me-local--%% . safe-path-test)) (8 4) (36 (%%-big-arg-%% 54)) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 23)) (8 12) (3 0) (39) (9) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caar)) (8 16) (10) (34 1) (3 0) (39) (29) (18) (12) (34 -3) (11) (26) (31 (%%-big-arg-%% -218)) (9) (32 (%%-big-arg-%% 31)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . cdar)) (8 6) (10) (34 1) (15 5) (9) (13 3) (33 1) (4 (%%-me-local--%% . load-aux)) (8 5) (8 5) (27) (8 5) (12) (14 10 4) (9) (13 5) (18) (3 0) (31 (%%-big-arg-%% -139)) (4 (%%-me-local--%% . load-aux)) (11) (4 (%%-me-local--%% . *path-list*)) (36 (%%-big-arg-%% 32)) (1 (%%-link-me-%% comp-utl . make-search-path)) (4 (%%-static-%% . 20)) (4 (%%-static-%% . 21)) (4 (%%-static-%% . 22)) (12) (34 3) (12) (14 7 4) (9) (13 5) (18) (3 0) (31 (%%-big-arg-%% -197)) (18) (4 (%%-static-%% . 11)) (3 0) (31 (%%-big-arg-%% 5)) (11) (42) (32 (%%-big-arg-%% 10)) (17 3) (3 0) (37) (11) (26) (42) (32 (%%-big-arg-%% 68)) (4 (%%-static-%% . 17)) (3 0) (39) (9) (12) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (36 (%%-big-arg-%% 37)) (3 0) (8 6) (27) (1 (%%-link-me-%% arith . +)) (4 (%%-static-%% . 9)) (8 8) (3 0) (62 -3) (3 0) (31 (%%-big-arg-%% -73)) (14 5 2) (39) (37) (1 (%%-link-me-%% module-operators . module-name)) (12) (26) (62 1) (3 0) (39) (9) (12) (3 0) (39) (29) (8 4) (26) (3 0) (39) (29) (18) (36 (%%-big-arg-%% 37)) (3 0) (8 6) (27) (1 (%%-link-me-%% arith . +)) (4 (%%-static-%% . 9)) (8 8) (3 0) (62 -3) (3 0) (31 (%%-big-arg-%% -145)) (14 5 2) (39) (37) (22 2) (4 (%%-static-%% . 16)) (10) (16) (20 0 1) (18) (3 0) (10) (16) (20 0 0) (18) (1 (%%-link-me-%% boot . append)) (36 (%%-big-arg-%% 62)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 85)) (8 6) (40 1) (36 (%%-big-arg-%% 34)) (1 (%%-link-me-%% gens . reverse)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% boot . all-registered-modules)) (9) (34 0) (10) (33 1) (3 0) (12) (34 -3) (36 (%%-big-arg-%% 28)) (4 (%%-me-local--%% . make-loaded-list)) (1 (%%-link-me-%% bci . boot-module-list)) (62 0) (3 0) (31 (%%-big-arg-%% -283)) (11) (14 5 3) (9) (13 4) (34 2) (1 (%%-link-me-%% module-operators . module-name)) (11) (26) (62 1) (3 0) (39) (9) (12) (27) (12) (19 0 0) (43) (32 (%%-big-arg-%% 14)) (11) (19 0 1) (31 (%%-big-arg-%% 42)) (12) (27) (12) (10) (20 0 0) (17 2) (1 (%%-link-me-%% arith . +)) (12) (19 0 1) (4 (%%-static-%% . 9)) (3 0) (62 -3) (12) (10) (20 0 1) (18) (3 0) (39) (29) (12) (26) (3 0) (39) (29) (18) (15 3) (37) (10) (26) (12) (48) (9) (42) (32 (%%-big-arg-%% 49)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 13)) (4 (%%-me-local--%% . Link-Error)) (4 (%%-static-%% . 14)) (3 0) (39) (9) (8 7) (3 0) (39) (29) (18) (12) (14 9 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% module-operators . module-binding-location)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% extras0 . caddr)) (8 4) (10) (34 1) (8 4) (27) (62 2) (10) (27) (26) (10) (42) (32 (%%-big-arg-%% 49)) (1 (%%-link-me-%% init . error)) (4 (%%-static-%% . 15)) (4 (%%-me-local--%% . Link-Error)) (4 (%%-static-%% . 14)) (3 0) (39) (9) (8 9) (3 0) (39) (29) (18) (12) (14 11 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% boot . nconc)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . int2bytes)) (8 4) (3 0) (31 (%%-big-arg-%% 183)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . int2bytes)) (8 6) (3 0) (31 (%%-big-arg-%% 164)) (11) (14 10 3) (9) (13 4) (34 2) (36 (%%-big-arg-%% 25)) (1 (%%-link-me-%% table . table-ref)) (4 (%%-me-local--%% . *name-table*)) (8 5) (27) (11) (33 2) (9) (32 (%%-big-arg-%% 15)) (9) (26) (12) (26) (43) (31 (%%-big-arg-%% 7)) (3 0) (32 (%%-big-arg-%% 22)) (1 (%%-link-me-%% lists . copy-list)) (10) (27) (14 6 2) (62 1) (37) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . simple-resolve-ref)) (8 6) (8 6) (3 0) (31 (%%-big-arg-%% -279)) (36 (%%-big-arg-%% 48)) (36 (%%-big-arg-%% 26)) (1 (%%-link-me-%% init . setter)) (1 (%%-link-me-%% table . table-ref)) (10) (33 1) (4 (%%-me-local--%% . *name-table*)) (8 7) (27) (8 8) (26) (8 6) (39) (12) (33 3) (18) (15 5) (1 (%%-link-me-%% lists . copy-list)) (16) (62 1) (37) (1 (%%-link-me-%% arith . <)) (11) (4 (%%-static-%% . 11)) (3 0) (39) (62 -2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% numbers . abs)) (8 5) (10) (33 1) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 12)) (3 0) (62 -3) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 12)) (3 0) (62 -3) (1 (%%-link-me-%% arith . /)) (10) (4 (%%-static-%% . 12)) (3 0) (62 -3) (18) (36 (%%-big-arg-%% 23)) (1 (%%-link-me-%% numbers . modulo)) (12) (4 (%%-static-%% . 12)) (11) (33 2) (3 0) (39) (9) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% numbers . modulo)) (8 6) (4 (%%-static-%% . 12)) (11) (33 2) (3 0) (39) (29) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% numbers . modulo)) (8 7) (4 (%%-static-%% . 12)) (11) (33 2) (3 0) (39) (29) (8 5) (32 (%%-big-arg-%% 15)) (4 (%%-static-%% . 9)) (31 (%%-big-arg-%% 10)) (4 (%%-static-%% . 11)) (3 0) (39) (29) (18) (15 7) (37) (1 (%%-link-me-%% streams . read)) (12) (62 1) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% streams1 . end-of-stream-p)) (12) (10) (34 1) (32 (%%-big-arg-%% 27)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% streams1 . close)) (8 6) (10) (33 1) (17 5) (37) (36 (%%-big-arg-%% 18)) (1 (%%-link-me-%% numbers . numberp)) (12) (10) (33 1) (32 (%%-big-arg-%% 50)) (4 (%%-me-local--%% . read-bytes)) (36 (%%-big-arg-%% 21)) (1 (%%-link-me-%% stream . write-stream)) (8 8) (8 5) (11) (33 2) (8 5) (8 5) (12) (14 10 4) (9) (13 5) (18) (3 0) (31 (%%-big-arg-%% -120)) (9) (44) (32 (%%-big-arg-%% 69)) (4 (%%-me-local--%% . read-bytes)) (36 (%%-big-arg-%% 40)) (1 (%%-link-me-%% stream . write-stream-list)) (8 8) (36 (%%-big-arg-%% 21)) (4 (%%-me-local--%% . resolve-ref)) (8 10) (8 9) (3 0) (31 (%%-big-arg-%% -529)) (11) (33 2) (8 5) (8 5) (12) (14 10 4) (9) (13 5) (18) (3 0) (31 (%%-big-arg-%% -191)) (17 5) (3 0) (37) (11) (42) (32 (%%-big-arg-%% 9)) (18) (15 2) (37) (11) (26) (11) (48) (32 (%%-big-arg-%% 28)) (4 (%%-me-local--%% . load-dependencies)) (12) (27) (12) (11) (14 7 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -38)) (36 (%%-big-arg-%% 20)) (4 (%%-me-local--%% . read-fastbytes)) (8 5) (26) (3 0) (31 (%%-big-arg-%% 104)) (18) (4 (%%-me-local--%% . load-dependencies)) (12) (27) (36 (%%-big-arg-%% 17)) (4 (%%-me-local--%% . find-loaded-modules)) (9) (26) (31 (%%-big-arg-%% -1060)) (11) (14 7 3) (9) (13 4) (18) (3 0) (31 (%%-big-arg-%% -98)) (4 (%%-me-local--%% . debug)) (32 (%%-big-arg-%% 28)) (1 (%%-link-me-%% bci . set-bc-global)) (4 (%%-static-%% . 10)) (3 1) (62 2) (31 (%%-big-arg-%% 7)) (3 0) (18) (1 (%%-link-me-%% bci . add-code-vector)) (8 5) (8 5) (8 5) (8 5) (14 10 5) (62 4) (37) (36 (%%-big-arg-%% 52)) (1 (%%-link-me-%% streams1 . open)) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% comp-utl . fast-file-name)) (8 7) (10) (34 1) (4 (%%-static-%% . 7)) (3 0) (39) (9) (3 1) (3 0) (39) (29) (18) (11) (34 -2) (1 (%%-link-me-%% streams . read)) (10) (62 1) (36 (%%-big-arg-%% 35)) (4 (%%-me-local--%% . load-dependencies)) (12) (36 (%%-big-arg-%% 17)) (4 (%%-me-local--%% . find-loaded-modules)) (9) (26) (31 (%%-big-arg-%% -1226)) (3 0) (31 (%%-big-arg-%% -256)) (9) (9) (7 (%%-me-local--%% . aa)) (18) (1 (%%-link-me-%% streams . read)) (12) (62 1) (1 (%%-link-me-%% streams . read)) (8 4) (62 1) (1 (%%-link-me-%% streams . read)) (8 5) (62 1) (36 (%%-big-arg-%% 69)) (1 (%%-link-me-%% extras0 . format)) (3 1) (4 (%%-static-%% . 8)) (8 12) (3 0) (39) (9) (8 8) (3 0) (39) (29) (1 (%%-link-me-%% arith . +)) (1 (%%-link-me-%% lists . list-length)) (8 9) (62 1) (8 11) (3 0) (62 -3) (3 0) (39) (29) (18) (12) (34 -3) (18) (4 (%%-me-local--%% . add-code-vector1)) (36 (%%-big-arg-%% 64)) (1 (%%-link-me-%% extras0 . convert)) (36 (%%-big-arg-%% 38)) (4 (%%-me-local--%% . read-bytes)) (36 (%%-big-arg-%% 17)) (1 (%%-link-me-%% stream . make-simple-stream)) (9) (34 0) (8 13) (8 12) (3 0) (31 (%%-big-arg-%% -630)) (1 (%%-link-me-%% standard0 . pair)) (11) (34 2) (12) (12) (1 (%%-link-me-%% arith . +)) (4 (%%-static-%% . 9)) (8 8) (1 (%%-link-me-%% lists . list-length)) (8 4) (62 1) (3 0) (39) (62 -3) (8 4) (14 14 5) (9) (13 6) (18) (3 0) (31 (%%-big-arg-%% -390)) (10) (9) (7 (%%-me-local--%% . debug)) (15 3) (37) (1 (%%-link-me-%% module-operators . module-name)) (36 (%%-big-arg-%% 19)) (4 (%%-me-local--%% . read-fastbytes)) (8 5) (3 0) (31 (%%-big-arg-%% -369)) (14 4 2) (62 1) (37)) statics (name Link-Error direct-superclasses direct-slot-descriptions metaclass-hypotheses direct-initargs in-fast input "~a: ~a bytes ~a statics~%" 1 3 0 256 "Module not found" error-value "Binding not found" 31 %-no-module-% ".fm" ".em" "FEEL_OBJS_PATH" #\: "." "~a~a" (set-debug load-module) ((strip (union (import standard0) (import list-fns) (only (all-registered-modules) (union (import boot))) (only (boot-module-list load-bytecodes) (union (import bci))) (import module-operators) (import stream) (import comp-utl) (import bci) (import root))) set-debug load-module) in-fast))